Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue59/Arch/Extended Sample/UnitObjectResultSetEmployee.dfm

Text File | 2000-05-19 | 658 b | 27 lines

inherited ObjectResultSetEmployee: TObjectResultSetEmployee
  inherited Query: TQuery
    SQL.Strings = (
      'select * from employee.db')
    object QueryEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object QueryLastName: TStringField
      FieldName = 'LastName'
    end
    object QueryFirstName: TStringField
      FieldName = 'FirstName'
      Size = 15
    end
    object QueryPhoneExt: TStringField
      FieldName = 'PhoneExt'
      Size = 4
    end
    object QueryHireDate: TDateTimeField
      FieldName = 'HireDate'
    end
    object QuerySalary: TFloatField
      FieldName = 'Salary'
    end
  end
end